procedure TForm1.Button1Click(Sender: TObject);
var
  FTabWidth: Integer;
begin
  Memo1.WantTabs := True;
  FTabWidth := 4;
  SendMessage(Memo1.Handle, EM_SETTABSTOPS, 1, Longint(@FTabWidth));
end;
